********************************************************************************
** Purpose: Replication Code for Figures in Paper and Appendix
** Project: Missionary Activity, Education, and Long-run Political Development  
** Written by: Soeren J. Henn  
** Last updated: 2025-05-29
********************************************************************************

version 13.1 
clear all
set more off 
set maxvar 32200

**!!!!!! add location of Replication Archive here
else if c(username) == "soerenhenn" {
	global dir "~/Dropbox/Missionaries/Replication Archive"
}
else {
	display as error "Please specify root directory"
	exit 
}  

global data "$dir/data"
global code "$dir/code"
global output "$dir/output"
	
********************************************************************************
******************* Figure 2: Characteristics of Regime Type *******************
********************************************************************************
use "$data/polity_data.dta", clear	
	
foreach var in xrreg xrcomp xropen xconst parreg parcomp { 
	local varlabel : variable label `var'
	ciplot `var', by(regime_type) xlabel(,labsize(large)) xtitle("Regime Type", size(vlarge)) ytitle("`varlabel'", size(large))
	graph export "$output/fig_2_`var'.png", replace width(1000)
}



********************************************************************************
**************************** Figure A1: Density Plot ***************************
********************************************************************************
use "$data/analysis_data.dta", clear	
	
drop if T_Closer10==.
	
cd "$output"


** We drop observations with distance to border == 0. because for those observations
** we don't know what side they are on. Our main results are robust to removing these observations from the analysis.
drop if Dist_Border10==0

capture drop temp*
rddensity Dist_Border10, h(10) pl plot_range(-10 10) plot_n(100 100) genvars(temp) p(2) q(2)

graph export "fig_a1_rddensity.png", replace width(1000)

********************************************************************************
*********************** Figure A2: Changing the Bandwidth **********************
********************************************************************************
use "$data/analysis_data.dta", clear	
cd "$output"


********** Panel A: Historical and Contemporaneous First Stage

	
	local controls "age female"
	foreach distance in 5 10 15 20 25 50 {
		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance'  if Dist_Border<=`distance', a(Border_Unique round) cluster(Border_Unique)
		est sto missions_`distance'
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance', a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_`distance'
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls'  if Dist_Border<=`distance', a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_`distance'	
	}
	
	
	coefplot 	(missions_5, pstyle(p1) msymbol(o) offset(3.4)) ///
				(catholic_5, pstyle(p3) msymbol(t) offset(4.2)) ///
				(schooling_5, pstyle(p4) msymbol(s) offset(4.6)) ///
				(missions_10, pstyle(p1) msymbol(o) offset(8.4)) ///
				(catholic_10, pstyle(p3) msymbol(t) offset(9.2)) ///
				(schooling_10, pstyle(p4) msymbol(s) offset(9.6)) ///
				(missions_15, pstyle(p1) msymbol(o) offset(13.4)) ///
				(catholic_15, pstyle(p3) msymbol(t) offset(14.2)) ///
				(schooling_15, pstyle(p4) msymbol(s) offset(14.6)) ///
				(missions_20, pstyle(p1) msymbol(o) offset(18.4)) ///
				(catholic_20, pstyle(p3) msymbol(t) offset(19.2)) ///
				(schooling_20, pstyle(p4) msymbol(s) offset(19.6)) ///
				(missions_25, pstyle(p1) msymbol(o) offset(23.4)) ///
				(catholic_25, pstyle(p3) msymbol(t) offset(24.2)) ///
				(schooling_25, pstyle(p4) msymbol(s) offset(24.6)) ///
				(missions_50, pstyle(p1) msymbol(o) offset(28.4)) ///
				(catholic_50, pstyle(p3) msymbol(t) offset(29.2)) ///
				(schooling_50, pstyle(p4) msymbol(s) offset(29.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female) vertical ///
				yline(0, lpattern(dash)) xtitle(Bandwidth (km)) xscale(range(4 32)) xlabel(5(5)25) ///
				xlabel(30 "50", add) graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title("Missionary Presence, Religious Identification, Schooling") ///
				legend(order(3 6 9) label(3 "Missions") label(6 "Catholic Today") ///
				label(9 "Schooling") position(bottom) rows(2))
	graph export "fig_a2_a.png",  replace width(1000)

	
********** Tables

esttab missions_5 catholic_5 schooling_5 using table_A18_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
esttab missions_15 catholic_15 schooling_15 using table_A19_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
esttab missions_20 catholic_20 schooling_20 using table_A20_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
esttab missions_25 catholic_25 schooling_25 using table_A21_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
esttab missions_50 catholic_50 schooling_50 using table_A22_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
	
********** Panel B: Index of Political Participation


	foreach var in voted_dum contact_loc attend_comm raised_issue{
		egen z_`var' = std(`var')
	}
	alpha z_voted_dum z_contact_loc z_attend_comm z_raised_issue, gen(index_participation3) std

	local controls "age female"
	foreach distance in 5 10 15 20 25 50 {
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance', a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_closed
		}	
	
	
	coefplot 	(pp_5, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_5_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_5_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_5_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_10, pstyle(p1) msymbol(o) offset(8.4)) ///
				(pp_10_dem, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_10_open, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_10_closed, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_15, pstyle(p1) msymbol(o) offset(13.4)) ///
				(pp_15_dem, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_15_open, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_15_closed, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_20, pstyle(p1) msymbol(o) offset(18.4)) ///
				(pp_20_dem, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_20_open, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_20_closed, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_25, pstyle(p1) msymbol(o) offset(23.4)) ///
				(pp_25_dem, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_25_open, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_25_closed, pstyle(p4) msymbol(s) offset(24.6)) ///
				(pp_50, pstyle(p1) msymbol(o) offset(28.4)) ///
				(pp_50_dem, pstyle(p2) msymbol(d) offset(28.8)) ///
				(pp_50_open, pstyle(p3) msymbol(t) offset(29.2)) ///
				(pp_50_closed, pstyle(p4) msymbol(s) offset(29.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female) vertical ///
				yline(0, lpattern(dash)) xtitle(Bandwidth (km)) xscale(range(4 32)) xlabel(5(5)25) ///
				xlabel(30 "50", add) graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Index of Political Participation) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Democracy") label(9 "Open Anocracy") label(12 "Closed Anocracy") position(bottom) rows(2))
	graph export "fig_a2_b.png",  replace width(1000)
	
********** Tables
esttab pp_5 pp_5_dem pp_5_open pp_5_closed using table_A18_b.tex, replace se r2 label title(Panel B: Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_15 pp_15_dem pp_15_open pp_15_closed using table_A19_b.tex, replace se r2 label title(Panel B: Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 

esttab pp_20 pp_20_dem pp_20_open pp_20_closed using table_A20_b.tex, replace se r2 label title(Panel B: Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_25 pp_25_dem pp_25_open pp_25_closed using table_A21_b.tex, replace se r2 label title(Panel B: Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_50 pp_50_dem pp_50_open pp_50_closed using table_A22_b.tex, replace se r2 label title(Panel B: Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
********** Panel C: Index of Political Sophistication

	foreach var in radio_news discuss_politics employed_dum{
		egen z_`var' = std(`var')
	}
	alpha z_employed_dum z_radio_news z_discuss_politics, gen(index_sophistication1) std
	**
	local controls "age female"
	foreach distance in 5 10 15 20 25 50 {
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance', a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_closed
		}	
	**
	coefplot 	(pp_5, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_5_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_5_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_5_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_10, pstyle(p1) msymbol(o) offset(8.4)) ///
				(pp_10_dem, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_10_open, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_10_closed, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_15, pstyle(p1) msymbol(o) offset(13.4)) ///
				(pp_15_dem, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_15_open, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_15_closed, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_20, pstyle(p1) msymbol(o) offset(18.4)) ///
				(pp_20_dem, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_20_open, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_20_closed, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_25, pstyle(p1) msymbol(o) offset(23.4)) ///
				(pp_25_dem, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_25_open, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_25_closed, pstyle(p4) msymbol(s) offset(24.6)) ///
				(pp_50, pstyle(p1) msymbol(o) offset(28.4)) ///
				(pp_50_dem, pstyle(p2) msymbol(d) offset(28.8)) ///
				(pp_50_open, pstyle(p3) msymbol(t) offset(29.2)) ///
				(pp_50_closed, pstyle(p4) msymbol(s) offset(29.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female) vertical ///
				yline(0, lpattern(dash)) xtitle(Bandwidth (km)) xscale(range(4 32)) xlabel(5(5)25) ///
				xlabel(30 "50", add) graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Index of Political Sophistication) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Democracy") label(9 "Open Anocracy") label(12 "Closed Anocracy") position(bottom) rows(2))
	graph export "fig_a2_c.png",  replace width(1000)	

********** Tables
esttab pp_5 pp_5_dem pp_5_open pp_5_closed using table_A18_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_15 pp_15_dem pp_15_open pp_15_closed using table_A19_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 

esttab pp_20 pp_20_dem pp_20_open pp_20_closed using table_A20_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_25 pp_25_dem pp_25_open pp_25_closed using table_A21_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_50 pp_50_dem pp_50_open pp_50_closed using table_A22_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
	
********** Panel D: Support for Democratic Institutions


	alpha op_reject_oneparty op_reject_oneman op_pres_obey op_pres_disc, gen(support_inst) std
	**
	local controls "age female"
	foreach distance in 5 10 15 20 25 50 {
		reghdfe  support_inst Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance', a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'
		
		reghdfe  support_inst Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_dem
		
		reghdfe  support_inst Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_open
		
		reghdfe  support_inst Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_closed
		}	
	**
	coefplot 	(pp_5, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_5_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_5_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_5_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_10, pstyle(p1) msymbol(o) offset(8.4)) ///
				(pp_10_dem, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_10_open, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_10_closed, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_15, pstyle(p1) msymbol(o) offset(13.4)) ///
				(pp_15_dem, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_15_open, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_15_closed, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_20, pstyle(p1) msymbol(o) offset(18.4)) ///
				(pp_20_dem, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_20_open, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_20_closed, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_25, pstyle(p1) msymbol(o) offset(23.4)) ///
				(pp_25_dem, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_25_open, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_25_closed, pstyle(p4) msymbol(s) offset(24.6)) ///
				(pp_50, pstyle(p1) msymbol(o) offset(28.4)) ///
				(pp_50_dem, pstyle(p2) msymbol(d) offset(28.8)) ///
				(pp_50_open, pstyle(p3) msymbol(t) offset(29.2)) ///
				(pp_50_closed, pstyle(p4) msymbol(s) offset(29.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female) vertical ///
				yline(0, lpattern(dash)) xtitle(Bandwidth (km)) xscale(range(4 32)) xlabel(5(5)25) ///
				xlabel(30 "50", add) graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Support for Democratic Institutions) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Democracy") label(9 "Open Anocracy") label(12 "Closed Anocracy") position(bottom) rows(2))
	graph export "fig_a2_d.png",  replace width(1000)	
	
********** Tables
esttab pp_5 pp_5_dem pp_5_open pp_5_closed using table_A18_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_15 pp_15_dem pp_15_open pp_15_closed using table_A19_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 

esttab pp_20 pp_20_dem pp_20_open pp_20_closed using table_A20_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_25 pp_25_dem pp_25_open pp_25_closed using table_A21_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_50 pp_50_dem pp_50_open pp_50_closed using table_A22_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
	
	
********** Panel E: Satisfied with Democracy
	

	**
	local controls "age female"
	foreach distance in 5 10 15 20 25 50 {
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance', a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_closed
		}	
	**
	coefplot 	(pp_5, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_5_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_5_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_5_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_10, pstyle(p1) msymbol(o) offset(8.4)) ///
				(pp_10_dem, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_10_open, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_10_closed, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_15, pstyle(p1) msymbol(o) offset(13.4)) ///
				(pp_15_dem, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_15_open, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_15_closed, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_20, pstyle(p1) msymbol(o) offset(18.4)) ///
				(pp_20_dem, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_20_open, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_20_closed, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_25, pstyle(p1) msymbol(o) offset(23.4)) ///
				(pp_25_dem, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_25_open, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_25_closed, pstyle(p4) msymbol(s) offset(24.6)) ///
				(pp_50, pstyle(p1) msymbol(o) offset(28.4)) ///
				(pp_50_dem, pstyle(p2) msymbol(d) offset(28.8)) ///
				(pp_50_open, pstyle(p3) msymbol(t) offset(29.2)) ///
				(pp_50_closed, pstyle(p4) msymbol(s) offset(29.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female) vertical ///
				yline(0, lpattern(dash)) xtitle(Bandwidth (km)) xscale(range(4 32)) xlabel(5(5)25) ///
				xlabel(30 "50", add) graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Satisfied with Democracy) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Democracy") label(9 "Open Anocracy") label(12 "Closed Anocracy") position(bottom) rows(2))
	graph export "fig_a2_e.png",  replace width(1000)	

********** Tables
esttab pp_5 pp_5_dem pp_5_open pp_5_closed using table_A18_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_15 pp_15_dem pp_15_open pp_15_closed using table_A19_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 

esttab pp_20 pp_20_dem pp_20_open pp_20_closed using table_A20_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_25 pp_25_dem pp_25_open pp_25_closed using table_A21_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_50 pp_50_dem pp_50_open pp_50_closed using table_A22_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
	
	
********** Panel F: Index of Incumbent Support and Performance
	
	
	foreach var in over_perf_inc close_inc_party close_opp_party{
		egen z_`var' = std(`var')
	}
	alpha z_close_opp_party z_close_inc_party, gen(index_inc) std
	alpha z_over_perf_inc index_inc, gen(index_perfinc) std
	**
	local controls "age female"
	foreach distance in 5 10 15 20 25 50 {
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance', a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer`distance'#c.Dist_Border`distance' Dist_Border`distance' `controls' if Dist_Border<=`distance' & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_`distance'_closed
		}	
	**
	coefplot 	(pp_5, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_5_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_5_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_5_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_10, pstyle(p1) msymbol(o) offset(8.4)) ///
				(pp_10_dem, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_10_open, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_10_closed, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_15, pstyle(p1) msymbol(o) offset(13.4)) ///
				(pp_15_dem, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_15_open, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_15_closed, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_20, pstyle(p1) msymbol(o) offset(18.4)) ///
				(pp_20_dem, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_20_open, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_20_closed, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_25, pstyle(p1) msymbol(o) offset(23.4)) ///
				(pp_25_dem, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_25_open, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_25_closed, pstyle(p4) msymbol(s) offset(24.6)) ///
				(pp_50, pstyle(p1) msymbol(o) offset(28.4)) ///
				(pp_50_dem, pstyle(p2) msymbol(d) offset(28.8)) ///
				(pp_50_open, pstyle(p3) msymbol(t) offset(29.2)) ///
				(pp_50_closed, pstyle(p4) msymbol(s) offset(29.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female) vertical ///
				yline(0, lpattern(dash)) xtitle(Bandwidth (km)) xscale(range(4 32)) xlabel(5(5)25) ///
				xlabel(30 "50", add) graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Index of Incumbent Support and Performance) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Democracy") label(9 "Open Anocracy") label(12 "Closed Anocracy") position(bottom) rows(2))
	graph export "fig_a2_f.png",  replace width(1000)	

********** Tables
esttab pp_5 pp_5_dem pp_5_open pp_5_closed using table_A18_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_15 pp_15_dem pp_15_open pp_15_closed using table_A19_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 

esttab pp_20 pp_20_dem pp_20_open pp_20_closed using table_A20_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_25 pp_25_dem pp_25_open pp_25_closed using table_A21_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
		
esttab pp_50 pp_50_dem pp_50_open pp_50_closed using table_A22_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		drop(_cons `controls') ///
		mtitles("Pooled" "Democracies" "Open Anocracies" "Closed Anocarcies" "Interaction") 
	
	
********************************************************************************
** Figure A3: Changing the Specification
********************************************************************************	
use "$data/analysis_data.dta", clear	
cd "$output"

********** Panel A: Historical and Contemporaneous First Stage
	
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_main
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_main
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_main
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls'  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_main	
	
	local controls "age female index_malaria Log_dist_capital"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_controls
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_controls
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_controls
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls'  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_controls	
	
	local controls "age female index_geo index_location index_NR"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_controlsall
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_controlsall
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_controlsall
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls'  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_controlsall	
		
	** Drop North Africa
	preserve
	drop if country_name=="Algeria"
	drop if country_name=="Egypt"
	drop if country_name=="Morocco"
	drop if country_name=="Tunisia"
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_nona
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_nona
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_nona
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls'  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_nona
	
	restore
	
	** Drop Islands
	preserve
	drop if country_name=="Madagascar"
	drop if country_name=="Cape Verde"
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_noislands
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_noislands
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_noislands
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls'  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_noislands
	
	restore
	** Drop Kingdoms
	preserve
	drop if country_name=="Lesotho"
	drop if country_name=="Swaziland"
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_nokingdoms
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_nokingdoms
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_nokingdoms
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls'  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_nokingdoms
	
	restore
	** Drop Borderline
	preserve
	drop if borderline==1
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_noborderline
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_noborderline
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_noborderline
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls'  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_noborderline
	
	restore
	** Drop One Diocese
	preserve
	drop if one_diocese==1
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_diocese
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_diocese
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_diocese
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls'  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_diocese
	
	restore
	**  drop 5% outliers
	preserve
	drop if Distance_DioceseHead>581.1725 & Distance_DioceseHead!=.
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_nooutlier
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_nooutlier
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_nooutlier
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls'  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_nooutlier
	
	restore
	
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round country) cluster(Border_Unique)
		est sto missions_country
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round country) cluster(Border_Unique)
		est sto herfin_country
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round country) cluster(Border_Unique)
		est sto catholic_country
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls'  if Dist_Border<=10, a(Border_Unique round country) cluster(Border_Unique)
		est sto schooling_country	
	
	** Drop Non-British
	preserve
	drop if british_colon==0
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_british
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_british
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_british
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls'  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_british	
	
	restore
	
	** Drop British
	preserve
	drop if british_colon==1
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_nobrit
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_nobrit
		
		reghdfe catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_nobrit
		
		reghdfe schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls'  if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_nobrit
	
	restore
	
	
** control for colonizer
	local controls "age female i.colonizer"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_colonizer
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_colonizer
		
		reghdfe  catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_colonizer
		
		reghdfe  schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_colonizer
	
	
	
** control for area_sqkm
	local controls "age female area_sqkm"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_area
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_area
		
		reghdfe  catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_area
		
		reghdfe  schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_area
	
	
	** drop localities too close to hq
	preserve
	drop if Distance_DioceseHead<5
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_close
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_close
		
		reghdfe  catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_close
		
		reghdfe  schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_close
	
	restore
	
		** drop localities too close to hq
	preserve
	drop if Dist_Border<1
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_donut
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_donut
		
		reghdfe  catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_donut
		
		reghdfe  schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_donut
	
	restore
	
	** drop muslim countries
	preserve
	drop if muslim_country==1
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_mus_cou
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_mus_cou
		
		reghdfe  catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_mus_cou
		
		reghdfe  schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_mus_cou
	
	restore
	
	** control for pre-colonial state
	local controls "age female Log_dist_pcs"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_dist_pcs
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_dist_pcs
		
		reghdfe  catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_dist_pcs
		
		reghdfe  schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_dist_pcs
	
	
		** pre-colonial state fixed effects
	local controls "age female"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto missions_fe_pcs
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto herfin_fe_pcs
		
		reghdfe  catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto catholic_fe_pcs
		
		reghdfe  schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto schooling_fe_pcs
	
	
	** control for distance to waterwyas
	local controls "age female Log_dist_waterways"

		reghdfe  Catholic50kms_Same Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto missions_waterways
		
		reghdfe  Herfindahl50kms Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto herfin_waterways
		
		reghdfe  catholic_m Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto catholic_waterways
		
		reghdfe  schooling_ordinal Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto schooling_waterways
	
	
	
	coefplot 	(missions_main, pstyle(p1) msymbol(o) offset(3.4)) ///
				(herfin_main, pstyle(p2) msymbol(d) offset(3.8)) ///
				(catholic_main, pstyle(p3) msymbol(t) offset(4.2)) ///
				(schooling_main, pstyle(p4) msymbol(s) offset(4.6)) ///
				(missions_controlsall, pstyle(p1) msymbol(o) offset(8.4)) ///
				(herfin_controlsall, pstyle(p2) msymbol(d) offset(8.8)) ///
				(catholic_controlsall, pstyle(p3) msymbol(t) offset(9.2)) ///
				(schooling_controlsall, pstyle(p4) msymbol(s) offset(9.6)) ///
				(missions_controls, pstyle(p1) msymbol(o) offset(13.4)) ///
				(herfin_controls, pstyle(p2) msymbol(d) offset(13.8)) ///
				(catholic_controls, pstyle(p3) msymbol(t) offset(14.2)) ///
				(schooling_controls, pstyle(p4) msymbol(s) offset(14.6)) ///
				(missions_country, pstyle(p1) msymbol(o) offset(18.4)) ///
				(herfin_country, pstyle(p2) msymbol(d) offset(18.8)) ///
				(catholic_country, pstyle(p3) msymbol(t) offset(19.2)) ///
				(schooling_country, pstyle(p4) msymbol(s) offset(19.6)) ///
				(missions_nooutlier, pstyle(p1) msymbol(o) offset(23.4)) ///
				(herfin_nooutlier, pstyle(p2) msymbol(d) offset(23.8)) ///
				(catholic_nooutlier, pstyle(p3) msymbol(t) offset(24.2)) ///
				(schooling_nooutlier, pstyle(p4) msymbol(s) offset(24.6)) ///
				(missions_nona, pstyle(p1) msymbol(o) offset(28.4)) ///
				(herfin_nona, pstyle(p2) msymbol(d) offset(28.8)) ///
				(catholic_nona, pstyle(p3) msymbol(t) offset(29.2)) ///
				(schooling_nona, pstyle(p4) msymbol(s) offset(29.6)) ///
				(missions_noislands, pstyle(p1) msymbol(o) offset(33.4)) ///
				(herfin_noislands, pstyle(p2) msymbol(d) offset(33.8)) ///
				(catholic_noislands, pstyle(p3) msymbol(t) offset(34.2)) ///
				(schooling_noislands, pstyle(p4) msymbol(s) offset(34.6)) ///
				(missions_nokingdoms, pstyle(p1) msymbol(o) offset(38.4)) ///
				(herfin_nokingdoms, pstyle(p2) msymbol(d) offset(38.8)) ///
				(catholic_nokingdoms, pstyle(p3) msymbol(t) offset(39.2)) ///
				(schooling_nokingdoms, pstyle(p4) msymbol(s) offset(39.6)) ///
				(missions_british, pstyle(p1) msymbol(o) offset(43.4)) ///
				(herfin_british, pstyle(p2) msymbol(d) offset(43.8)) ///
				(catholic_british, pstyle(p3) msymbol(t) offset(44.2)) ///
				(schooling_british, pstyle(p4) msymbol(s) offset(44.6)) ///
				(missions_nobrit, pstyle(p1) msymbol(o) offset(48.4)) ///
				(herfin_nobrit, pstyle(p2) msymbol(d) offset(48.8)) ///
				(catholic_nobrit, pstyle(p3) msymbol(t) offset(49.2)) ///
				(schooling_nobrit, pstyle(p4) msymbol(s) offset(49.6)) ///
				(missions_colonizer, pstyle(p1) msymbol(o) offset(53.4)) ///
				(herfin_colonizer, pstyle(p2) msymbol(d) offset(53.8)) ///
				(catholic_colonizer, pstyle(p3) msymbol(t) offset(54.2)) ///
				(schooling_colonizer, pstyle(p4) msymbol(s) offset(54.6)) ///
				(missions_noborderline, pstyle(p1) msymbol(o) offset(58.4)) ///
				(herfin_noborderline, pstyle(p2) msymbol(d) offset(58.8)) ///
				(catholic_noborderline, pstyle(p3) msymbol(t) offset(59.2)) ///
				(schooling_noborderline, pstyle(p4) msymbol(s) offset(59.6)) ///
				(missions_diocese, pstyle(p1) msymbol(o) offset(63.4)) ///
				(herfin_diocese, pstyle(p2) msymbol(d) offset(63.8)) ///
				(catholic_diocese, pstyle(p3) msymbol(t) offset(64.2)) ///
				(schooling_diocese, pstyle(p4) msymbol(s) offset(64.6)) ///
				(missions_area, pstyle(p1) msymbol(o) offset(68.4)) ///
				(herfin_area, pstyle(p2) msymbol(d) offset(68.8)) ///
				(catholic_area, pstyle(p3) msymbol(t) offset(69.2)) ///
				(schooling_area, pstyle(p4) msymbol(s) offset(69.6)) ///
				(missions_close, pstyle(p1) msymbol(o) offset(73.4)) ///
				(herfin_close, pstyle(p2) msymbol(d) offset(73.8)) ///
				(catholic_close, pstyle(p3) msymbol(t) offset(74.2)) ///
				(schooling_close, pstyle(p4) msymbol(s) offset(74.6)) ///
				(missions_donut, pstyle(p1) msymbol(o) offset(78.4)) ///
				(herfin_donut, pstyle(p2) msymbol(d) offset(78.8)) ///
				(catholic_donut, pstyle(p3) msymbol(t) offset(79.2)) ///
				(schooling_donut, pstyle(p4) msymbol(s) offset(79.6)) ///
				(missions_mus_cou, pstyle(p1) msymbol(o) offset(83.4)) ///
				(herfin_mus_cou, pstyle(p2) msymbol(d) offset(83.8)) ///
				(catholic_mus_cou, pstyle(p3) msymbol(t) offset(84.2)) ///
				(schooling_mus_cou, pstyle(p4) msymbol(s) offset(84.6)) ///
				(missions_dist_pcs, pstyle(p1) msymbol(o) offset(88.4)) ///
				(herfin_dist_pcs, pstyle(p2) msymbol(d) offset(88.8)) ///
				(catholic_dist_pcs, pstyle(p3) msymbol(t) offset(89.2)) ///
				(schooling_dist_pcs, pstyle(p4) msymbol(s) offset(89.6)) ///
				(missions_fe_pcs, pstyle(p1) msymbol(o) offset(93.4)) ///
				(herfin_fe_pcs, pstyle(p2) msymbol(d) offset(93.8)) ///
				(catholic_fe_pcs, pstyle(p3) msymbol(t) offset(94.2)) ///
				(schooling_fe_pcs, pstyle(p4) msymbol(s) offset(94.6)) ///
				(missions_waterways, pstyle(p1) msymbol(o) offset(98.4)) ///
				(herfin_waterways, pstyle(p2) msymbol(d) offset(98.8)) ///
				(catholic_waterways, pstyle(p3) msymbol(t) offset(98.2)) ///
				(schooling_waterways, pstyle(p4) msymbol(s) offset(98.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female index_malaria Log_dist_capital  index_geo index_location index_NR area_sqkm *.colonizer Log_dist_pcs Log_dist_waterways) vertical ///
				yline(0, lpattern(dash)) xscale(range(4 100)) ///
				xlabel(5 "Baseline", angle(30)) xlabel(10 "All Controls", add) ///
				xlabel(15 "Unbalanced Controls", add) ///
				xlabel(20 "Country FE", add)  xlabel(25 "No Outliers", add) ///
				xlabel(30 "No North Africa", add) xlabel(35 "No Islands", add) ///
				xlabel(40 "No Kingdoms", add) xlabel(45 "British Colonies", add) ///
				xlabel(50 "Other Colonies", add) xlabel(55 "Colonizer FE", add) ///
				xlabel(60 "No Borderline", add) xlabel(65 "Mult. Diocese", add) ///
				xlabel(70 "Diocese Area", add) xlabel(75 "Drop Within 5km of HQ", add) ///
				xlabel(80 "Drop Within 1km of Border", add) xlabel(85 "Drop Muslim Countries", add)  ///
				xlabel(90 "Distance PCS", add) xlabel(95 "PCS FE", add) xlabel(100 "Distance Waterways", add) ///
				graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Historical and Contemporaneous First Stage) ///
				legend(order(3 6 9 12) label(3 "Missions") label(6 "Herfindahl") label(9 "Catholic Today") label(12 "Schooling") position(bottom) rows(1))
	graph export "fig_a3_a.png", replace width(1000)

********** Tables	
esttab missions_nona catholic_nona schooling_nona using table_A13_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_nokingdoms catholic_nokingdoms schooling_nokingdoms using table_A14_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_noislands catholic_noislands schooling_noislands using table_A15_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_controls catholic_controls schooling_controls using table_A16_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_nooutlier catholic_nooutlier schooling_nooutlier using table_A17_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_british catholic_british schooling_british using table_A24_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_nobrit catholic_nobrit schooling_nobrit using table_A25_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_mus_cou catholic_mus_cou schooling_mus_cou using table_A26_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_area catholic_area schooling_area using table_A27_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_donut catholic_donut schooling_donut using table_A28_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_close catholic_close schooling_close using table_A29_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_colonizer catholic_colonizer schooling_colonizer using table_A30_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_dist_pcs catholic_dist_pcs schooling_dist_pcs using table_A31_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_fe_pcs catholic_fe_pcs schooling_fe_pcs using table_A32_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab missions_waterways catholic_waterways schooling_waterways using table_A33_a.tex, replace se r2 label title(Panel A: Historical and Contemporaneous First Statge) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)		

		
********** Panel B: Index of Political Participation

	foreach var in voted_dum contact_loc attend_comm raised_issue{
		egen z_`var' = std(`var')
	}
	alpha z_voted_dum z_contact_loc z_attend_comm z_raised_issue, gen(index_participation3) std
	**
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_closed
	
	local controls "age female index_malaria Log_dist_capital"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_closed
	
	local controls "age female index_geo index_location index_NR"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_closed
	
	** Drop North Africa
	** Drop North Africa
	preserve
	drop if country_name=="Algeria"
	drop if country_name=="Egypt"
	drop if country_name=="Morocco"
	drop if country_name=="Tunisia"
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_closed
	
	restore
	
	** Drop Islands
	preserve
	drop if country_name=="Madagascar"
	drop if country_name=="Cape Verde"
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_closed
	
	restore
	** Drop Kingdoms
	preserve
	drop if country_name=="Lesotho"
	drop if country_name=="Swaziland"
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_closed
		
	restore
	** Drop Borderline
	preserve
	drop if borderline==1
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_closed
		
	restore
	** Drop One Diocese
	preserve
	drop if one_diocese==1
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_closed
		
	restore
	**  drop 5% outliers
	preserve
	drop if Distance_DioceseHead>581.1725 & Distance_DioceseHead!=.
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_closed
	
	restore
	
	** Country Fixed Effects
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_closed
	
	** Drop Non-British 
	preserve
	drop if british_colon==0
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_closed
	
	restore
	
	** Drop British
	preserve
	drop if british_colon==1
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_closed
	
	restore
	
	
** control for colonizer
	local controls "age female i.colonizer"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_closed
	
	
	
** control for area_sqkm
	local controls "age female area_sqkm"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_closed
	
	
	** drop localities too close to hq
	preserve
	drop if Distance_DioceseHead<5
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_closed
	
	restore
	
		** drop localities too close to border
	preserve
	drop if Dist_Border<1
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_closed
	
	restore
	
		** drop muslim countries
	preserve
	drop if muslim_country==1
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_closed
	
	restore
	
	** control for pre-colonial state
	local controls "age female Log_dist_pcs"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_closed
	
	
		** pre-colonial state fixed effects
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_closed
	
	
	** control for distance to waterways
	local controls "age female Log_dist_waterways"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_closed
		
	
	
	coefplot 	(pp_main, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_main_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_main_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_main_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_controlsall, pstyle(p1) msymbol(o) offset(8.4)) ///
				(pp_controlsall_dem, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_controlsall_open, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_controlsall_closed, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_controls, pstyle(p1) msymbol(o) offset(13.4)) ///
				(pp_controls_dem, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_controls_open, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_controls_closed, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_country, pstyle(p1) msymbol(o) offset(18.4)) ///
				(pp_country_dem, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_country_open, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_country_closed, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_nooutlier, pstyle(p1) msymbol(o) offset(23.4)) ///
				(pp_nooutlier_dem, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_nooutlier_open, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_nooutlier_closed, pstyle(p4) msymbol(s) offset(24.6)) ///
				(pp_nona, pstyle(p1) msymbol(o) offset(28.4)) ///
				(pp_nona_dem, pstyle(p2) msymbol(d) offset(28.8)) ///
				(pp_nona_open, pstyle(p3) msymbol(t) offset(29.2)) ///
				(pp_nona_closed, pstyle(p4) msymbol(s) offset(29.6)) ///
				(pp_noislands, pstyle(p1) msymbol(o) offset(33.4)) ///
				(pp_noislands_dem, pstyle(p2) msymbol(d) offset(33.8)) ///
				(pp_noislands_open, pstyle(p3) msymbol(t) offset(34.2)) ///
				(pp_noislands_closed, pstyle(p4) msymbol(s) offset(34.6)) ///
				(pp_nokingdoms, pstyle(p1) msymbol(o) offset(38.4)) ///
				(pp_nokingdoms_dem, pstyle(p2) msymbol(d) offset(38.8)) ///
				(pp_nokingdoms_open, pstyle(p3) msymbol(t) offset(39.2)) ///
				(pp_nokingdoms_closed, pstyle(p4) msymbol(s) offset(39.6)) ///
				(pp_british, pstyle(p1) msymbol(o) offset(43.4)) ///
				(pp_british_dem, pstyle(p2) msymbol(d) offset(43.8)) ///
				(pp_british_open, pstyle(p3) msymbol(t) offset(44.2)) ///
				(pp_british_closed, pstyle(p4) msymbol(s) offset(44.6)) ///
				(pp_nobrit, pstyle(p1) msymbol(o) offset(48.4)) ///
				(pp_nobrit_dem, pstyle(p2) msymbol(d) offset(48.8)) ///
				(pp_nobrit_open, pstyle(p3) msymbol(t) offset(49.2)) ///
				(pp_nobrit_closed, pstyle(p4) msymbol(s) offset(49.6)) /// 
				(pp_colonizer, pstyle(p1) msymbol(o) offset(53.4)) ///
				(pp_colonizer_dem, pstyle(p2) msymbol(d) offset(53.8)) ///
				(pp_colonizer_open, pstyle(p3) msymbol(t) offset(54.2)) ///
				(pp_colonizer_closed, pstyle(p4) msymbol(s) offset(54.6)) ///
				(pp_noborderline, pstyle(p1) msymbol(o) offset(58.4)) ///
				(pp_noborderline_dem, pstyle(p2) msymbol(d) offset(58.8)) ///
				(pp_noborderline_open, pstyle(p3) msymbol(t) offset(59.2)) ///
				(pp_noborderline_closed, pstyle(p4) msymbol(s) offset(59.6)) ///
				(pp_diocese, pstyle(p1) msymbol(o) offset(63.4)) ///
				(pp_diocese_dem, pstyle(p2) msymbol(d) offset(63.8)) ///
				(pp_diocese_open, pstyle(p3) msymbol(t) offset(64.2)) ///
				(pp_diocese_closed, pstyle(p4) msymbol(s) offset(64.6)) ///
				(pp_area, pstyle(p1) msymbol(o) offset(68.4)) ///
				(pp_area_dem, pstyle(p2) msymbol(d) offset(68.8)) ///
				(pp_area_open, pstyle(p3) msymbol(t) offset(69.2)) ///
				(pp_area_closed, pstyle(p4) msymbol(s) offset(69.6)) ///
				(pp_close, pstyle(p1) msymbol(o) offset(73.4)) ///
				(pp_close_dem, pstyle(p2) msymbol(d) offset(73.8)) ///
				(pp_close_open, pstyle(p3) msymbol(t) offset(74.2)) ///
				(pp_close_closed, pstyle(p4) msymbol(s) offset(74.6)) ///
				(pp_donut, pstyle(p1) msymbol(o) offset(78.4)) ///
				(pp_donut_dem, pstyle(p2) msymbol(d) offset(78.8)) ///
				(pp_donut_open, pstyle(p3) msymbol(t) offset(79.2)) ///
				(pp_donut_closed, pstyle(p4) msymbol(s) offset(79.6)) ///
				(pp_mus_cou, pstyle(p1) msymbol(o) offset(83.4)) ///
				(pp_mus_cou_dem, pstyle(p2) msymbol(d) offset(83.8)) ///
				(pp_mus_cou_open, pstyle(p3) msymbol(t) offset(84.2)) ///
				(pp_mus_cou_closed, pstyle(p4) msymbol(s) offset(84.6)) ///
				(pp_dist_pcs, pstyle(p1) msymbol(o) offset(88.4)) ///
				(pp_dist_pcs_dem, pstyle(p2) msymbol(d) offset(88.8)) ///
				(pp_dist_pcs_open, pstyle(p3) msymbol(t) offset(89.2)) ///
				(pp_dist_pcs_closed, pstyle(p4) msymbol(s) offset(89.6)) ///
				(pp_fe_pcs, pstyle(p1) msymbol(o) offset(93.4)) ///
				(pp_fe_pcs_dem, pstyle(p2) msymbol(d) offset(93.8)) ///
				(pp_fe_pcs_open, pstyle(p3) msymbol(t) offset(94.2)) ///
				(pp_fe_pcs_closed, pstyle(p4) msymbol(s) offset(94.6)) ///
				(pp_waterways, pstyle(p1) msymbol(o) offset(98.4)) ///
				(pp_waterways_dem, pstyle(p2) msymbol(d) offset(98.8)) ///
				(pp_waterways_open, pstyle(p3) msymbol(t) offset(99.2)) ///
				(pp_waterways_closed, pstyle(p4) msymbol(s) offset(99.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female index_malaria Log_dist_capital  index_geo index_location index_NR area_sqkm *.colonizer Log_dist_pcs Log_dist_waterways) vertical ///
				yline(0, lpattern(dash)) xscale(range(4 100)) ///
				xlabel(5 "Baseline", angle(30)) xlabel(10 "All Controls", add) ///
				xlabel(15 "Unbalanced Controls", add) ///
				xlabel(20 "Country FE", add)  xlabel(25 "No Outliers", add) ///
				xlabel(30 "No North Africa", add) xlabel(35 "No Islands", add) ///
				xlabel(40 "No Kingdoms", add) xlabel(45 "British Colonies", add) ///
				xlabel(50 "Other Colonies", add) xlabel(55 "Colonizer FE", add) ///
				xlabel(60 "No Borderline", add) xlabel(65 "Mult. Diocese", add) ///
				xlabel(70 "Diocese Area", add) xlabel(75 "Drop Within 5km of HQ", add) ///
				xlabel(80 "Drop Within 1km of Border", add) xlabel(85 "Drop Muslim Countries", add)  ///
				xlabel(90 "Distance PCS", add) xlabel(95 "PCS FE", add) xlabel(100 "Distance Waterways", add) ///
				graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Index of Political Participation) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Democracy") label(9 "Open Anocracy") label(12 "Closed Anocracy") position(bottom) rows(1))
	graph export "fig_a3_b.png", replace width(1000)

********** Tables
esttab pp_nona pp_nona_dem pp_nona_open pp_nona_closed using table_A13_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nokingdoms pp_nokingdoms_dem pp_nokingdoms_open pp_nokingdoms_closed using table_A14_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_noislands pp_noislands_dem pp_noislands_open pp_noislands_closed using table_A15_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_controls pp_controls_dem pp_controls_open pp_controls_closed using table_A16_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nooutlier pp_nooutlier_dem pp_nooutlier_open pp_nooutlier_closed using table_A17_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_british pp_british_dem pp_british_open pp_british_closed using table_A24_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nobrit pp_nobrit_dem pp_nobrit_open pp_nobrit_closed using table_A25_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_mus_cou pp_mus_cou_dem pp_mus_cou_open pp_mus_cou_closed using table_A26_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_area pp_area_dem pp_area_open pp_area_closed using table_A27_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_donut pp_donut_dem pp_donut_open pp_donut_closed using table_A28_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_close pp_close_dem pp_close_open pp_close_closed using table_A29_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_colonizer pp_colonizer_dem pp_colonizer_open pp_colonizer_closed using table_A30_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_dist_pcs pp_dist_pcs_dem pp_dist_pcs_open pp_dist_pcs_closed using table_A31_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_fe_pcs pp_fe_pcs_dem pp_fe_pcs_open pp_fe_pcs_closed using table_A32_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_waterways pp_waterways_dem pp_waterways_open pp_waterways_closed using table_A33_b.tex, replace se r2 label title(Panel B: Index of Political Participation) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
	
********** Panel C: Index of Political Sophistication

	foreach var in radio_news discuss_politics employed_dum{
		egen z_`var' = std(`var')
	}
	alpha z_employed_dum z_radio_news z_discuss_politics, gen(index_sophistication1) std
	**
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_closed
	
	local controls "age female index_malaria Log_dist_capital"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_closed
	
		local controls "age female index_geo index_location index_NR"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_closed
	
	** Drop North Africa
	preserve
	drop if country_name=="Algeria"
	drop if country_name=="Egypt"
	drop if country_name=="Morocco"
	drop if country_name=="Tunisia"
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_closed
	
	restore
	
	** Drop Islands
	preserve
	drop if country_name=="Madagascar"
	drop if country_name=="Cape Verde"
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_closed
	
	restore
	** Drop Kingdoms
	preserve
	drop if country_name=="Lesotho"
	drop if country_name=="Swaziland"
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_closed
		
	restore
	** Drop Borderline
	preserve
	drop if borderline==1
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_closed
		
	restore
	** Drop One diocese
	preserve
	drop if one_diocese==1
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_closed
		
	restore
	**  drop 5% outliers
	preserve
	drop if Distance_DioceseHead>581.1725 & Distance_DioceseHead!=.
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_closed
	
	restore
	
	** Country Fixed Effects
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_closed
	
	** Drop Non-British 
	preserve
	drop if british_colon==0
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_closed
	
	restore
	
	** Drop British
	preserve
	drop if british_colon==1
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_closed
	
	restore
	
	
** control for colonizer
	local controls "age female i.colonizer"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_closed
	
	
	
** control for area_sqkm
	local controls "age female area_sqkm"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_closed
	
	
	** drop localities too close to hq
	preserve
	drop if Distance_DioceseHead<5
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_closed
	
	restore
	
		** drop localities too close to border
	preserve
	drop if Dist_Border<1
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_closed
	
	restore
	
		** drop muslim countries
	preserve
	drop if muslim_country==1
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_closed
	
	restore
	
	** control for pre-colonial state
	local controls "age female Log_dist_pcs"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_closed
	
	
		** pre-colonial state fixed effects
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_closed
	
	
	** control for distance to waterways
	local controls "age female Log_dist_waterways"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_closed
			
	
	coefplot 	(pp_main, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_main_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_main_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_main_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_controlsall, pstyle(p1) msymbol(o) offset(8.4)) ///
				(pp_controlsall_dem, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_controlsall_open, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_controlsall_closed, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_controls, pstyle(p1) msymbol(o) offset(13.4)) ///
				(pp_controls_dem, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_controls_open, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_controls_closed, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_country, pstyle(p1) msymbol(o) offset(18.4)) ///
				(pp_country_dem, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_country_open, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_country_closed, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_nooutlier, pstyle(p1) msymbol(o) offset(23.4)) ///
				(pp_nooutlier_dem, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_nooutlier_open, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_nooutlier_closed, pstyle(p4) msymbol(s) offset(24.6)) ///
				(pp_nona, pstyle(p1) msymbol(o) offset(28.4)) ///
				(pp_nona_dem, pstyle(p2) msymbol(d) offset(28.8)) ///
				(pp_nona_open, pstyle(p3) msymbol(t) offset(29.2)) ///
				(pp_nona_closed, pstyle(p4) msymbol(s) offset(29.6)) ///
				(pp_noislands, pstyle(p1) msymbol(o) offset(33.4)) ///
				(pp_noislands_dem, pstyle(p2) msymbol(d) offset(33.8)) ///
				(pp_noislands_open, pstyle(p3) msymbol(t) offset(34.2)) ///
				(pp_noislands_closed, pstyle(p4) msymbol(s) offset(34.6)) ///
				(pp_nokingdoms, pstyle(p1) msymbol(o) offset(38.4)) ///
				(pp_nokingdoms_dem, pstyle(p2) msymbol(d) offset(38.8)) ///
				(pp_nokingdoms_open, pstyle(p3) msymbol(t) offset(39.2)) ///
				(pp_nokingdoms_closed, pstyle(p4) msymbol(s) offset(39.6)) ///
				(pp_british, pstyle(p1) msymbol(o) offset(43.4)) ///
				(pp_british_dem, pstyle(p2) msymbol(d) offset(43.8)) ///
				(pp_british_open, pstyle(p3) msymbol(t) offset(44.2)) ///
				(pp_british_closed, pstyle(p4) msymbol(s) offset(44.6)) ///
				(pp_nobrit, pstyle(p1) msymbol(o) offset(48.4)) ///
				(pp_nobrit_dem, pstyle(p2) msymbol(d) offset(48.8)) ///
				(pp_nobrit_open, pstyle(p3) msymbol(t) offset(49.2)) ///
				(pp_nobrit_closed, pstyle(p4) msymbol(s) offset(49.6)) ///
				(pp_colonizer, pstyle(p1) msymbol(o) offset(53.4)) ///
				(pp_colonizer_dem, pstyle(p2) msymbol(d) offset(53.8)) ///
				(pp_colonizer_open, pstyle(p3) msymbol(t) offset(54.2)) ///
				(pp_colonizer_closed, pstyle(p4) msymbol(s) offset(54.6)) ///
				(pp_noborderline, pstyle(p1) msymbol(o) offset(58.4)) ///
				(pp_noborderline_dem, pstyle(p2) msymbol(d) offset(58.8)) ///
				(pp_noborderline_open, pstyle(p3) msymbol(t) offset(59.2)) ///
				(pp_noborderline_closed, pstyle(p4) msymbol(s) offset(59.6)) ///
				(pp_diocese, pstyle(p1) msymbol(o) offset(63.4)) ///
				(pp_diocese_dem, pstyle(p2) msymbol(d) offset(63.8)) ///
				(pp_diocese_open, pstyle(p3) msymbol(t) offset(64.2)) ///
				(pp_diocese_closed, pstyle(p4) msymbol(s) offset(64.6)) ///
				(pp_area, pstyle(p1) msymbol(o) offset(68.4)) ///
				(pp_area_dem, pstyle(p2) msymbol(d) offset(68.8)) ///
				(pp_area_open, pstyle(p3) msymbol(t) offset(69.2)) ///
				(pp_area_closed, pstyle(p4) msymbol(s) offset(69.6)) ///
				(pp_close, pstyle(p1) msymbol(o) offset(73.4)) ///
				(pp_close_dem, pstyle(p2) msymbol(d) offset(73.8)) ///
				(pp_close_open, pstyle(p3) msymbol(t) offset(74.2)) ///
				(pp_close_closed, pstyle(p4) msymbol(s) offset(74.6)) ///
				(pp_donut, pstyle(p1) msymbol(o) offset(78.4)) ///
				(pp_donut_dem, pstyle(p2) msymbol(d) offset(78.8)) ///
				(pp_donut_open, pstyle(p3) msymbol(t) offset(79.2)) ///
				(pp_donut_closed, pstyle(p4) msymbol(s) offset(79.6)) ///
				(pp_mus_cou, pstyle(p1) msymbol(o) offset(83.4)) ///
				(pp_mus_cou_dem, pstyle(p2) msymbol(d) offset(83.8)) ///
				(pp_mus_cou_open, pstyle(p3) msymbol(t) offset(84.2)) ///
				(pp_mus_cou_closed, pstyle(p4) msymbol(s) offset(84.6)) ///
				(pp_dist_pcs, pstyle(p1) msymbol(o) offset(88.4)) ///
				(pp_dist_pcs_dem, pstyle(p2) msymbol(d) offset(88.8)) ///
				(pp_dist_pcs_open, pstyle(p3) msymbol(t) offset(89.2)) ///
				(pp_dist_pcs_closed, pstyle(p4) msymbol(s) offset(89.6)) ///
				(pp_fe_pcs, pstyle(p1) msymbol(o) offset(93.4)) ///
				(pp_fe_pcs_dem, pstyle(p2) msymbol(d) offset(93.8)) ///
				(pp_fe_pcs_open, pstyle(p3) msymbol(t) offset(94.2)) ///
				(pp_fe_pcs_closed, pstyle(p4) msymbol(s) offset(94.6)) ///
				(pp_waterways, pstyle(p1) msymbol(o) offset(98.4)) ///
				(pp_waterways_dem, pstyle(p2) msymbol(d) offset(98.8)) ///
				(pp_waterways_open, pstyle(p3) msymbol(t) offset(99.2)) ///
				(pp_waterways_closed, pstyle(p4) msymbol(s) offset(99.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female index_malaria Log_dist_capital  index_geo index_location index_NR area_sqkm *.colonizer Log_dist_pcs Log_dist_waterways) vertical ///
				yline(0, lpattern(dash)) xscale(range(4 100)) ///
				xlabel(5 "Baseline", angle(30)) xlabel(10 "All Controls", add) ///
				xlabel(15 "Unbalanced Controls", add) ///
				xlabel(20 "Country FE", add)  xlabel(25 "No Outliers", add) ///
				xlabel(30 "No North Africa", add) xlabel(35 "No Islands", add) ///
				xlabel(40 "No Kingdoms", add) xlabel(45 "British Colonies", add) ///
				xlabel(50 "Other Colonies", add) xlabel(55 "Colonizer FE", add) ///
				xlabel(60 "No Borderline", add) xlabel(65 "Mult. Diocese", add) ///
				xlabel(70 "Diocese Area", add) xlabel(75 "Drop Within 5km of HQ", add) ///
				xlabel(80 "Drop Within 1km of Border", add) xlabel(85 "Drop Muslim Countries", add)  ///
				xlabel(90 "Distance PCS", add) xlabel(95 "PCS FE", add) xlabel(100 "Distance Waterways", add) ///
				graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Index of Political Sophistication) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Democracy") label(9 "Open Anocracy") label(12 "Closed Anocracy") position(bottom) rows(1))
	graph export "fig_a3_c.png", replace width(1000)
	
********** Tables
esttab pp_nona pp_nona_dem pp_nona_open pp_nona_closed using table_A13_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nokingdoms pp_nokingdoms_dem pp_nokingdoms_open pp_nokingdoms_closed using table_A14_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_noislands pp_noislands_dem pp_noislands_open pp_noislands_closed using table_A15_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_controls pp_controls_dem pp_controls_open pp_controls_closed using table_A16_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nooutlier pp_nooutlier_dem pp_nooutlier_open pp_nooutlier_closed using table_A17_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_british pp_british_dem pp_british_open pp_british_closed using table_A24_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nobrit pp_nobrit_dem pp_nobrit_open pp_nobrit_closed using table_A25_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_mus_cou pp_mus_cou_dem pp_mus_cou_open pp_mus_cou_closed using table_A26_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_area pp_area_dem pp_area_open pp_area_closed using table_A27_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_donut pp_donut_dem pp_donut_open pp_donut_closed using table_A28_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_close pp_close_dem pp_close_open pp_close_closed using table_A29_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_colonizer pp_colonizer_dem pp_colonizer_open pp_colonizer_closed using table_A30_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_dist_pcs pp_dist_pcs_dem pp_dist_pcs_open pp_dist_pcs_closed using table_A31_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_fe_pcs pp_fe_pcs_dem pp_fe_pcs_open pp_fe_pcs_closed using table_A32_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_waterways pp_waterways_dem pp_waterways_open pp_waterways_closed using table_A33_c.tex, replace se r2 label title(Panel C: Index of Political Sophistication) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)			
	
********** Panel D: Support for Democratic Institutions

	alpha op_reject_oneparty op_reject_oneman op_pres_obey op_pres_disc, gen(support_inst2) std
	**
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_closed
	
	local controls "age female index_malaria Log_dist_capital"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_closed
	
	local controls "age female index_geo index_location index_NR"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_closed
	
	** Drop North Africa
	preserve
	drop if country_name=="Algeria"
	drop if country_name=="Egypt"
	drop if country_name=="Morocco"
	drop if country_name=="Tunisia"
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_closed
	
	restore
	
	** Drop Islands
	preserve
	drop if country_name=="Madagascar"
	drop if country_name=="Cape Verde"
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_closed
	
	restore
	** Drop Kingdoms
	preserve
	drop if country_name=="Lesotho"
	drop if country_name=="Swaziland"
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_closed
		
	restore
	** Drop Borderline
	preserve
	drop if borderline==1
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_closed
		
	restore
	** Drop one diocese
	preserve
	drop if one_diocese==1
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_closed
		
	restore
	**  drop 5% outliers
	preserve
	drop if Distance_DioceseHead>581.1725 & Distance_DioceseHead!=.
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_closed
	
	restore
	
	** Country Fixed Effects
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_closed
	
	** Drop Non-British 
	preserve
	drop if british_colon==0
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_closed
	
	restore
	
	** Drop British
	preserve
	drop if british_colon==1
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_closed
	
	restore
	
	
** control for colonizer
	local controls "age female i.colonizer"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_closed
	
	
	
** control for area_sqkm
	local controls "age female area_sqkm"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_closed
	
	
	** drop localities too close to hq
	preserve
	drop if Distance_DioceseHead<5
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_closed
	
	restore
	
		** drop localities too close to border
	preserve
	drop if Dist_Border<1
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_closed
	
	restore
	
		** drop muslim countries
	preserve
	drop if muslim_country==1
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_closed
	
	restore
	
	** control for pre-colonial state
	local controls "age female Log_dist_pcs"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_closed
	
	
		** pre-colonial state fixed effects
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_closed
	
	
	** control for distance to waterways
	local controls "age female Log_dist_waterways"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_closed
		
	
	coefplot 	(pp_main, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_main_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_main_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_main_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_controlsall, pstyle(p1) msymbol(o) offset(8.4)) ///
				(pp_controlsall_dem, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_controlsall_open, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_controlsall_closed, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_controls, pstyle(p1) msymbol(o) offset(13.4)) ///
				(pp_controls_dem, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_controls_open, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_controls_closed, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_country, pstyle(p1) msymbol(o) offset(18.4)) ///
				(pp_country_dem, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_country_open, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_country_closed, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_nooutlier, pstyle(p1) msymbol(o) offset(23.4)) ///
				(pp_nooutlier_dem, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_nooutlier_open, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_nooutlier_closed, pstyle(p4) msymbol(s) offset(24.6)) ///
				(pp_nona, pstyle(p1) msymbol(o) offset(28.4)) ///
				(pp_nona_dem, pstyle(p2) msymbol(d) offset(28.8)) ///
				(pp_nona_open, pstyle(p3) msymbol(t) offset(29.2)) ///
				(pp_nona_closed, pstyle(p4) msymbol(s) offset(29.6)) ///
				(pp_noislands, pstyle(p1) msymbol(o) offset(33.4)) ///
				(pp_noislands_dem, pstyle(p2) msymbol(d) offset(33.8)) ///
				(pp_noislands_open, pstyle(p3) msymbol(t) offset(34.2)) ///
				(pp_noislands_closed, pstyle(p4) msymbol(s) offset(34.6)) ///
				(pp_nokingdoms, pstyle(p1) msymbol(o) offset(38.4)) ///
				(pp_nokingdoms_dem, pstyle(p2) msymbol(d) offset(38.8)) ///
				(pp_nokingdoms_open, pstyle(p3) msymbol(t) offset(39.2)) ///
				(pp_nokingdoms_closed, pstyle(p4) msymbol(s) offset(39.6)) ///
				(pp_british, pstyle(p1) msymbol(o) offset(43.4)) ///
				(pp_british_dem, pstyle(p2) msymbol(d) offset(43.8)) ///
				(pp_british_open, pstyle(p3) msymbol(t) offset(44.2)) ///
				(pp_british_closed, pstyle(p4) msymbol(s) offset(44.6)) ///
				(pp_nobrit, pstyle(p1) msymbol(o) offset(48.4)) ///
				(pp_nobrit_dem, pstyle(p2) msymbol(d) offset(48.8)) ///
				(pp_nobrit_open, pstyle(p3) msymbol(t) offset(49.2)) ///
				(pp_nobrit_closed, pstyle(p4) msymbol(s) offset(49.6)) ///
				(pp_colonizer, pstyle(p1) msymbol(o) offset(53.4)) ///
				(pp_colonizer_dem, pstyle(p2) msymbol(d) offset(53.8)) ///
				(pp_colonizer_open, pstyle(p3) msymbol(t) offset(54.2)) ///
				(pp_colonizer_closed, pstyle(p4) msymbol(s) offset(54.6)) ///
				(pp_noborderline, pstyle(p1) msymbol(o) offset(58.4)) ///
				(pp_noborderline_dem, pstyle(p2) msymbol(d) offset(58.8)) ///
				(pp_noborderline_open, pstyle(p3) msymbol(t) offset(59.2)) ///
				(pp_noborderline_closed, pstyle(p4) msymbol(s) offset(59.6)) ///
				(pp_diocese, pstyle(p1) msymbol(o) offset(63.4)) ///
				(pp_diocese_dem, pstyle(p2) msymbol(d) offset(63.8)) ///
				(pp_diocese_open, pstyle(p3) msymbol(t) offset(64.2)) ///
				(pp_diocese_closed, pstyle(p4) msymbol(s) offset(64.6)) ///
				(pp_area, pstyle(p1) msymbol(o) offset(68.4)) ///
				(pp_area_dem, pstyle(p2) msymbol(d) offset(68.8)) ///
				(pp_area_open, pstyle(p3) msymbol(t) offset(69.2)) ///
				(pp_area_closed, pstyle(p4) msymbol(s) offset(69.6)) ///
				(pp_close, pstyle(p1) msymbol(o) offset(73.4)) ///
				(pp_close_dem, pstyle(p2) msymbol(d) offset(73.8)) ///
				(pp_close_open, pstyle(p3) msymbol(t) offset(74.2)) ///
				(pp_close_closed, pstyle(p4) msymbol(s) offset(74.6)) ///
				(pp_donut, pstyle(p1) msymbol(o) offset(78.4)) ///
				(pp_donut_dem, pstyle(p2) msymbol(d) offset(78.8)) ///
				(pp_donut_open, pstyle(p3) msymbol(t) offset(79.2)) ///
				(pp_donut_closed, pstyle(p4) msymbol(s) offset(79.6)) ///
				(pp_mus_cou, pstyle(p1) msymbol(o) offset(83.4)) ///
				(pp_mus_cou_dem, pstyle(p2) msymbol(d) offset(83.8)) ///
				(pp_mus_cou_open, pstyle(p3) msymbol(t) offset(84.2)) ///
				(pp_mus_cou_closed, pstyle(p4) msymbol(s) offset(84.6)) ///
				(pp_dist_pcs, pstyle(p1) msymbol(o) offset(88.4)) ///
				(pp_dist_pcs_dem, pstyle(p2) msymbol(d) offset(88.8)) ///
				(pp_dist_pcs_open, pstyle(p3) msymbol(t) offset(89.2)) ///
				(pp_dist_pcs_closed, pstyle(p4) msymbol(s) offset(89.6)) ///
				(pp_fe_pcs, pstyle(p1) msymbol(o) offset(93.4)) ///
				(pp_fe_pcs_dem, pstyle(p2) msymbol(d) offset(93.8)) ///
				(pp_fe_pcs_open, pstyle(p3) msymbol(t) offset(94.2)) ///
				(pp_fe_pcs_closed, pstyle(p4) msymbol(s) offset(94.6)) ///
				(pp_waterways, pstyle(p1) msymbol(o) offset(98.4)) ///
				(pp_waterways_dem, pstyle(p2) msymbol(d) offset(98.8)) ///
				(pp_waterways_open, pstyle(p3) msymbol(t) offset(99.2)) ///
				(pp_waterways_closed, pstyle(p4) msymbol(s) offset(99.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female index_malaria Log_dist_capital  index_geo index_location index_NR area_sqkm *.colonizer Log_dist_pcs Log_dist_waterways) vertical ///
				yline(0, lpattern(dash)) xscale(range(4 100)) ///
				xlabel(5 "Baseline", angle(30)) xlabel(10 "All Controls", add) ///
				xlabel(15 "Unbalanced Controls", add) ///
				xlabel(20 "Country FE", add)  xlabel(25 "No Outliers", add) ///
				xlabel(30 "No North Africa", add) xlabel(35 "No Islands", add) ///
				xlabel(40 "No Kingdoms", add) xlabel(45 "British Colonies", add) ///
				xlabel(50 "Other Colonies", add) xlabel(55 "Colonizer FE", add) ///
				xlabel(60 "No Borderline", add) xlabel(65 "Mult. Diocese", add) ///
				xlabel(70 "Diocese Area", add) xlabel(75 "Drop Within 5km of HQ", add) ///
				xlabel(80 "Drop Within 1km of Border", add) xlabel(85 "Drop Muslim Countries", add)  ///
				xlabel(90 "Distance PCS", add) xlabel(95 "PCS FE", add) xlabel(100 "Distance Waterways", add) ///
				graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Support for Democratic Institutions) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Democracy") label(9 "Open Anocracy") label(12 "Closed Anocracy") position(bottom) rows(1))
	graph export "fig_a3_d.png", replace width(1000)
	
********** Tables
esttab pp_nona pp_nona_dem pp_nona_open pp_nona_closed using table_A13_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nokingdoms pp_nokingdoms_dem pp_nokingdoms_open pp_nokingdoms_closed using table_A14_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_noislands pp_noislands_dem pp_noislands_open pp_noislands_closed using table_A15_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_controls pp_controls_dem pp_controls_open pp_controls_closed using table_A16_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nooutlier pp_nooutlier_dem pp_nooutlier_open pp_nooutlier_closed using table_A17_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_british pp_british_dem pp_british_open pp_british_closed using table_A24_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nobrit pp_nobrit_dem pp_nobrit_open pp_nobrit_closed using table_A25_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_mus_cou pp_mus_cou_dem pp_mus_cou_open pp_mus_cou_closed using table_A26_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_area pp_area_dem pp_area_open pp_area_closed using table_A27_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_donut pp_donut_dem pp_donut_open pp_donut_closed using table_A28_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_close pp_close_dem pp_close_open pp_close_closed using table_A29_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_colonizer pp_colonizer_dem pp_colonizer_open pp_colonizer_closed using table_A30_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_dist_pcs pp_dist_pcs_dem pp_dist_pcs_open pp_dist_pcs_closed using table_A31_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_fe_pcs pp_fe_pcs_dem pp_fe_pcs_open pp_fe_pcs_closed using table_A32_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_waterways pp_waterways_dem pp_waterways_open pp_waterways_closed using table_A33_d.tex, replace se r2 label title(Panel D: Support for Democratic Institutions) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)		
	
********** Panel E: Satisfied with Democracy	

	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_closed
	
	local controls "age female index_malaria Log_dist_capital"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_closed
	
	local controls "age female index_geo index_location index_NR"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_closed
	
	** Drop North Africa
	preserve
	drop if country_name=="Algeria"
	drop if country_name=="Egypt"
	drop if country_name=="Morocco"
	drop if country_name=="Tunisia"
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_closed
	
	restore
	
	** Drop Islands
	preserve
	drop if country_name=="Madagascar"
	drop if country_name=="Cape Verde"
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_closed
	
	restore
	** Drop Kingdoms
	preserve
	drop if country_name=="Lesotho"
	drop if country_name=="Swaziland"
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_closed
		
	restore
	** Drop Borderline
	preserve
	drop if borderline==1
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_closed
		
	restore
	** Drop one diocese
	preserve
	drop if one_diocese==1
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_closed
		
	restore
	**  drop 5% outliers
	preserve
	drop if Distance_DioceseHead>581.1725 & Distance_DioceseHead!=.
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_closed
	
	restore
	
	** Country Fixed Effects
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_closed
	
	** Drop Non-British 
	preserve
	drop if british_colon==0
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_closed
	
	restore
	
	** Drop British
	preserve
	drop if british_colon==1
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_closed
	
	restore
	
	
** control for colonizer
	local controls "age female i.colonizer"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_closed
	
	
	
** control for area_sqkm
	local controls "age female area_sqkm"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_closed
	
	
	** drop localities too close to hq
	preserve
	drop if Distance_DioceseHead<5
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_closed
	
	restore
	
		** drop localities too close to border
	preserve
	drop if Dist_Border<1
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_closed
	
	restore
	
		** drop muslim countries
	preserve
	drop if muslim_country==1
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_closed
	
	restore
	
	** control for pre-colonial state
	local controls "age female Log_dist_pcs"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_closed
	
	
		** pre-colonial state fixed effects
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_closed
	
	
		** control for distance to waterways
	local controls "age female Log_dist_waterways"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_closed
		
	
	coefplot 	(pp_main, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_main_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_main_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_main_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_controlsall, pstyle(p1) msymbol(o) offset(8.4)) ///
				(pp_controlsall_dem, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_controlsall_open, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_controlsall_closed, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_controls, pstyle(p1) msymbol(o) offset(13.4)) ///
				(pp_controls_dem, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_controls_open, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_controls_closed, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_country, pstyle(p1) msymbol(o) offset(18.4)) ///
				(pp_country_dem, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_country_open, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_country_closed, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_nooutlier, pstyle(p1) msymbol(o) offset(23.4)) ///
				(pp_nooutlier_dem, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_nooutlier_open, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_nooutlier_closed, pstyle(p4) msymbol(s) offset(24.6)) ///
				(pp_nona, pstyle(p1) msymbol(o) offset(28.4)) ///
				(pp_nona_dem, pstyle(p2) msymbol(d) offset(28.8)) ///
				(pp_nona_open, pstyle(p3) msymbol(t) offset(29.2)) ///
				(pp_nona_closed, pstyle(p4) msymbol(s) offset(29.6)) ///
				(pp_noislands, pstyle(p1) msymbol(o) offset(33.4)) ///
				(pp_noislands_dem, pstyle(p2) msymbol(d) offset(33.8)) ///
				(pp_noislands_open, pstyle(p3) msymbol(t) offset(34.2)) ///
				(pp_noislands_closed, pstyle(p4) msymbol(s) offset(34.6)) ///
				(pp_nokingdoms, pstyle(p1) msymbol(o) offset(38.4)) ///
				(pp_nokingdoms_dem, pstyle(p2) msymbol(d) offset(38.8)) ///
				(pp_nokingdoms_open, pstyle(p3) msymbol(t) offset(39.2)) ///
				(pp_nokingdoms_closed, pstyle(p4) msymbol(s) offset(39.6)) ///
				(pp_british, pstyle(p1) msymbol(o) offset(43.4)) ///
				(pp_british_dem, pstyle(p2) msymbol(d) offset(43.8)) ///
				(pp_british_open, pstyle(p3) msymbol(t) offset(44.2)) ///
				(pp_british_closed, pstyle(p4) msymbol(s) offset(44.6)) ///
				(pp_nobrit, pstyle(p1) msymbol(o) offset(48.4)) ///
				(pp_nobrit_dem, pstyle(p2) msymbol(d) offset(48.8)) ///
				(pp_nobrit_open, pstyle(p3) msymbol(t) offset(49.2)) ///
				(pp_nobrit_closed, pstyle(p4) msymbol(s) offset(49.6)) ///
				(pp_colonizer, pstyle(p1) msymbol(o) offset(53.4)) ///
				(pp_colonizer_dem, pstyle(p2) msymbol(d) offset(53.8)) ///
				(pp_colonizer_open, pstyle(p3) msymbol(t) offset(54.2)) ///
				(pp_colonizer_closed, pstyle(p4) msymbol(s) offset(54.6)) ///
				(pp_noborderline, pstyle(p1) msymbol(o) offset(58.4)) ///
				(pp_noborderline_dem, pstyle(p2) msymbol(d) offset(58.8)) ///
				(pp_noborderline_open, pstyle(p3) msymbol(t) offset(59.2)) ///
				(pp_noborderline_closed, pstyle(p4) msymbol(s) offset(59.6)) ///
				(pp_diocese, pstyle(p1) msymbol(o) offset(63.4)) ///
				(pp_diocese_dem, pstyle(p2) msymbol(d) offset(63.8)) ///
				(pp_diocese_open, pstyle(p3) msymbol(t) offset(64.2)) ///
				(pp_diocese_closed, pstyle(p4) msymbol(s) offset(64.6)) ///
				(pp_area, pstyle(p1) msymbol(o) offset(68.4)) ///
				(pp_area_dem, pstyle(p2) msymbol(d) offset(68.8)) ///
				(pp_area_open, pstyle(p3) msymbol(t) offset(69.2)) ///
				(pp_area_closed, pstyle(p4) msymbol(s) offset(69.6)) ///
				(pp_close, pstyle(p1) msymbol(o) offset(73.4)) ///
				(pp_close_dem, pstyle(p2) msymbol(d) offset(73.8)) ///
				(pp_close_open, pstyle(p3) msymbol(t) offset(74.2)) ///
				(pp_close_closed, pstyle(p4) msymbol(s) offset(74.6)) ///
				(pp_donut, pstyle(p1) msymbol(o) offset(78.4)) ///
				(pp_donut_dem, pstyle(p2) msymbol(d) offset(78.8)) ///
				(pp_donut_open, pstyle(p3) msymbol(t) offset(79.2)) ///
				(pp_donut_closed, pstyle(p4) msymbol(s) offset(79.6)) ///
				(pp_mus_cou, pstyle(p1) msymbol(o) offset(83.4)) ///
				(pp_mus_cou_dem, pstyle(p2) msymbol(d) offset(83.8)) ///
				(pp_mus_cou_open, pstyle(p3) msymbol(t) offset(84.2)) ///
				(pp_mus_cou_closed, pstyle(p4) msymbol(s) offset(84.6)) ///
				(pp_dist_pcs, pstyle(p1) msymbol(o) offset(88.4)) ///
				(pp_dist_pcs_dem, pstyle(p2) msymbol(d) offset(88.8)) ///
				(pp_dist_pcs_open, pstyle(p3) msymbol(t) offset(89.2)) ///
				(pp_dist_pcs_closed, pstyle(p4) msymbol(s) offset(89.6)) ///
				(pp_fe_pcs, pstyle(p1) msymbol(o) offset(93.4)) ///
				(pp_fe_pcs_dem, pstyle(p2) msymbol(d) offset(93.8)) ///
				(pp_fe_pcs_open, pstyle(p3) msymbol(t) offset(94.2)) ///
				(pp_fe_pcs_closed, pstyle(p4) msymbol(s) offset(94.6)) ///
				(pp_waterways, pstyle(p1) msymbol(o) offset(98.4)) ///
				(pp_waterways_dem, pstyle(p2) msymbol(d) offset(98.8)) ///
				(pp_waterways_open, pstyle(p3) msymbol(t) offset(99.2)) ///
				(pp_waterways_closed, pstyle(p4) msymbol(s) offset(99.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female index_malaria Log_dist_capital  index_geo index_location index_NR area_sqkm *.colonizer Log_dist_pcs Log_dist_waterways) vertical ///
				yline(0, lpattern(dash)) xscale(range(4 100)) ///
				xlabel(5 "Baseline", angle(30)) xlabel(10 "All Controls", add) ///
				xlabel(15 "Unbalanced Controls", add) ///
				xlabel(20 "Country FE", add)  xlabel(25 "No Outliers", add) ///
				xlabel(30 "No North Africa", add) xlabel(35 "No Islands", add) ///
				xlabel(40 "No Kingdoms", add) xlabel(45 "British Colonies", add) ///
				xlabel(50 "Other Colonies", add) xlabel(55 "Colonizer FE", add) ///
				xlabel(60 "No Borderline", add) xlabel(65 "Mult. Diocese", add) ///
				xlabel(70 "Diocese Area", add) xlabel(75 "Drop Within 5km of HQ", add) ///
				xlabel(80 "Drop Within 1km of Border", add) xlabel(85 "Drop Muslim Countries", add)  ///
				xlabel(90 "Distance PCS", add) xlabel(95 "PCS FE", add) xlabel(100 "Distance Waterways", add) ///
				graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Satisfied with Democracy) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Democracy") label(9 "Open Anocracy") label(12 "Closed Anocracy") position(bottom) rows(1))
	graph export "fig_a3_e.png", replace width(1000)
	
********** Tables
esttab pp_nona pp_nona_dem pp_nona_open pp_nona_closed using table_A13_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nokingdoms pp_nokingdoms_dem pp_nokingdoms_open pp_nokingdoms_closed using table_A14_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_noislands pp_noislands_dem pp_noislands_open pp_noislands_closed using table_A15_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_controls pp_controls_dem pp_controls_open pp_controls_closed using table_A16_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nooutlier pp_nooutlier_dem pp_nooutlier_open pp_nooutlier_closed using table_A17_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_british pp_british_dem pp_british_open pp_british_closed using table_A24_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nobrit pp_nobrit_dem pp_nobrit_open pp_nobrit_closed using table_A25_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_mus_cou pp_mus_cou_dem pp_mus_cou_open pp_mus_cou_closed using table_A26_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_area pp_area_dem pp_area_open pp_area_closed using table_A27_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_donut pp_donut_dem pp_donut_open pp_donut_closed using table_A28_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_close pp_close_dem pp_close_open pp_close_closed using table_A29_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_colonizer pp_colonizer_dem pp_colonizer_open pp_colonizer_closed using table_A30_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_dist_pcs pp_dist_pcs_dem pp_dist_pcs_open pp_dist_pcs_closed using table_A31_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_fe_pcs pp_fe_pcs_dem pp_fe_pcs_open pp_fe_pcs_closed using table_A32_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_waterways pp_waterways_dem pp_waterways_open pp_waterways_closed using table_A33_e.tex, replace se r2 label title(Panel E: Satisfied with Democracy) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)		

********** Panel F: Index of Incumbent Support and Performance	
	
	foreach var in over_perf_inc close_inc_party close_opp_party{
		egen z_`var' = std(`var')
	}
	alpha z_close_opp_party z_close_inc_party, gen(index_inc) std
	alpha z_over_perf_inc index_inc, gen(index_perfinc) std
	**
		local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_closed
	
	local controls "age female index_malaria Log_dist_capital"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controls_closed
	
	local controls "age female index_geo index_location index_NR"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_controlsall_closed
	
	** Drop North Africa
	preserve
	drop if country_name=="Algeria"
	drop if country_name=="Egypt"
	drop if country_name=="Morocco"
	drop if country_name=="Tunisia"
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nona_closed
	
	restore
	
	** Drop Islands
	preserve
	drop if country_name=="Madagascar"
	drop if country_name=="Cape Verde"
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noislands_closed
	
	restore
	** Drop Kingdoms
	preserve
	drop if country_name=="Lesotho"
	drop if country_name=="Swaziland"
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nokingdoms_closed
		
	restore
	** Drop Borderline
	preserve
	drop if borderline==1
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_noborderline_closed
		
	restore
	** Drop One Diocese
	preserve
	drop if one_diocese==1
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_diocese_closed
		
	restore
	**  drop 5% outliers
	preserve
	drop if Distance_DioceseHead>581.1725 & Distance_DioceseHead!=.
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nooutlier_closed
	
	restore
	
	** Country Fixed Effects
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round country) cluster(Border_Unique)
		est sto pp_country_closed
	
	** Drop Non-British 
	preserve
	drop if british_colon==0
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_british_closed
	
	restore
	
	** Drop British
	preserve
	drop if british_colon==1
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_nobrit_closed
	
	restore
	
	
** control for colonizer
	local controls "age female i.colonizer"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_colonizer_closed
	
	
	
** control for area_sqkm
	local controls "age female area_sqkm"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_area_closed
	
	
	** drop localities too close to hq
	preserve
	drop if Distance_DioceseHead<5
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_close_closed
	
	restore
	
		** drop localities too close to border
	preserve
	drop if Dist_Border<1
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_donut_closed
	
	restore
	
		** drop muslim countries
	preserve
	drop if muslim_country==1
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_mus_cou_closed
	
	restore
	
	** control for pre-colonial state
	local controls "age female Log_dist_pcs"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_dist_pcs_closed
	
	
		** pre-colonial state fixed effects
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round pcs_own) cluster(Border_Unique)
		est sto pp_fe_pcs_closed
	
	
	** control for distance to waterways
	local controls "age female Log_dist_waterways"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_waterways_closed
		
	
	
	
	coefplot 	(pp_main, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_main_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_main_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_main_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_controlsall, pstyle(p1) msymbol(o) offset(8.4)) ///
				(pp_controlsall_dem, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_controlsall_open, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_controlsall_closed, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_controls, pstyle(p1) msymbol(o) offset(13.4)) ///
				(pp_controls_dem, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_controls_open, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_controls_closed, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_country, pstyle(p1) msymbol(o) offset(18.4)) ///
				(pp_country_dem, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_country_open, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_country_closed, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_nooutlier, pstyle(p1) msymbol(o) offset(23.4)) ///
				(pp_nooutlier_dem, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_nooutlier_open, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_nooutlier_closed, pstyle(p4) msymbol(s) offset(24.6)) ///
				(pp_nona, pstyle(p1) msymbol(o) offset(28.4)) ///
				(pp_nona_dem, pstyle(p2) msymbol(d) offset(28.8)) ///
				(pp_nona_open, pstyle(p3) msymbol(t) offset(29.2)) ///
				(pp_nona_closed, pstyle(p4) msymbol(s) offset(29.6)) ///
				(pp_noislands, pstyle(p1) msymbol(o) offset(33.4)) ///
				(pp_noislands_dem, pstyle(p2) msymbol(d) offset(33.8)) ///
				(pp_noislands_open, pstyle(p3) msymbol(t) offset(34.2)) ///
				(pp_noislands_closed, pstyle(p4) msymbol(s) offset(34.6)) ///
				(pp_nokingdoms, pstyle(p1) msymbol(o) offset(38.4)) ///
				(pp_nokingdoms_dem, pstyle(p2) msymbol(d) offset(38.8)) ///
				(pp_nokingdoms_open, pstyle(p3) msymbol(t) offset(39.2)) ///
				(pp_nokingdoms_closed, pstyle(p4) msymbol(s) offset(39.6)) ///
				(pp_british, pstyle(p1) msymbol(o) offset(43.4)) ///
				(pp_british_dem, pstyle(p2) msymbol(d) offset(43.8)) ///
				(pp_british_open, pstyle(p3) msymbol(t) offset(44.2)) ///
				(pp_british_closed, pstyle(p4) msymbol(s) offset(44.6)) ///
				(pp_nobrit, pstyle(p1) msymbol(o) offset(48.4)) ///
				(pp_nobrit_dem, pstyle(p2) msymbol(d) offset(48.8)) ///
				(pp_nobrit_open, pstyle(p3) msymbol(t) offset(49.2)) ///
				(pp_nobrit_closed, pstyle(p4) msymbol(s) offset(49.6)) ///
				(pp_colonizer, pstyle(p1) msymbol(o) offset(53.4)) ///
				(pp_colonizer_dem, pstyle(p2) msymbol(d) offset(53.8)) ///
				(pp_colonizer_open, pstyle(p3) msymbol(t) offset(54.2)) ///
				(pp_colonizer_closed, pstyle(p4) msymbol(s) offset(54.6)) ///
				(pp_noborderline, pstyle(p1) msymbol(o) offset(58.4)) ///
				(pp_noborderline_dem, pstyle(p2) msymbol(d) offset(58.8)) ///
				(pp_noborderline_open, pstyle(p3) msymbol(t) offset(59.2)) ///
				(pp_noborderline_closed, pstyle(p4) msymbol(s) offset(59.6)) ///
				(pp_diocese, pstyle(p1) msymbol(o) offset(63.4)) ///
				(pp_diocese_dem, pstyle(p2) msymbol(d) offset(63.8)) ///
				(pp_diocese_open, pstyle(p3) msymbol(t) offset(64.2)) ///
				(pp_diocese_closed, pstyle(p4) msymbol(s) offset(64.6)) ///
				(pp_area, pstyle(p1) msymbol(o) offset(68.4)) ///
				(pp_area_dem, pstyle(p2) msymbol(d) offset(68.8)) ///
				(pp_area_open, pstyle(p3) msymbol(t) offset(69.2)) ///
				(pp_area_closed, pstyle(p4) msymbol(s) offset(69.6)) ///
				(pp_close, pstyle(p1) msymbol(o) offset(73.4)) ///
				(pp_close_dem, pstyle(p2) msymbol(d) offset(73.8)) ///
				(pp_close_open, pstyle(p3) msymbol(t) offset(74.2)) ///
				(pp_close_closed, pstyle(p4) msymbol(s) offset(74.6)) ///
				(pp_donut, pstyle(p1) msymbol(o) offset(78.4)) ///
				(pp_donut_dem, pstyle(p2) msymbol(d) offset(78.8)) ///
				(pp_donut_open, pstyle(p3) msymbol(t) offset(79.2)) ///
				(pp_donut_closed, pstyle(p4) msymbol(s) offset(79.6)) ///
				(pp_mus_cou, pstyle(p1) msymbol(o) offset(83.4)) ///
				(pp_mus_cou_dem, pstyle(p2) msymbol(d) offset(83.8)) ///
				(pp_mus_cou_open, pstyle(p3) msymbol(t) offset(84.2)) ///
				(pp_mus_cou_closed, pstyle(p4) msymbol(s) offset(84.6)) ///
				(pp_dist_pcs, pstyle(p1) msymbol(o) offset(88.4)) ///
				(pp_dist_pcs_dem, pstyle(p2) msymbol(d) offset(88.8)) ///
				(pp_dist_pcs_open, pstyle(p3) msymbol(t) offset(89.2)) ///
				(pp_dist_pcs_closed, pstyle(p4) msymbol(s) offset(89.6)) ///
				(pp_fe_pcs, pstyle(p1) msymbol(o) offset(93.4)) ///
				(pp_fe_pcs_dem, pstyle(p2) msymbol(d) offset(93.8)) ///
				(pp_fe_pcs_open, pstyle(p3) msymbol(t) offset(94.2)) ///
				(pp_fe_pcs_closed, pstyle(p4) msymbol(s) offset(94.6)) ///
				(pp_waterways, pstyle(p1) msymbol(o) offset(98.4)) ///
				(pp_waterways_dem, pstyle(p2) msymbol(d) offset(98.8)) ///
				(pp_waterways_open, pstyle(p3) msymbol(t) offset(99.2)) ///
				(pp_waterways_closed, pstyle(p4) msymbol(s) offset(99.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female index_malaria Log_dist_capital  index_geo index_location index_NR area_sqkm *.colonizer Log_dist_pcs Log_dist_waterways) vertical ///
				yline(0, lpattern(dash)) xscale(range(4 100)) ///
				xlabel(5 "Baseline", angle(30)) xlabel(10 "All Controls", add) ///
				xlabel(15 "Unbalanced Controls", add) ///
				xlabel(20 "Country FE", add)  xlabel(25 "No Outliers", add) ///
				xlabel(30 "No North Africa", add) xlabel(35 "No Islands", add) ///
				xlabel(40 "No Kingdoms", add) xlabel(45 "British Colonies", add) ///
				xlabel(50 "Other Colonies", add) xlabel(55 "Colonizer FE", add) ///
				xlabel(60 "No Borderline", add) xlabel(65 "Mult. Diocese", add) ///
				xlabel(70 "Diocese Area", add) xlabel(75 "Drop Within 5km of HQ", add) ///
				xlabel(80 "Drop Within 1km of Border", add) xlabel(85 "Drop Muslim Countries", add)  ///
				xlabel(90 "Distance PCS", add) xlabel(95 "PCS FE", add) xlabel(100 "Distance Waterways", add) ///
				graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Index of Incumbent Support and Performance) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Democracy") label(9 "Open Anocracy") label(12 "Closed Anocracy") position(bottom) rows(1))
	graph export "fig_a3_f.png", replace width(1000)
	
********** Tables
esttab pp_nona pp_nona_dem pp_nona_open pp_nona_closed using table_A13_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nokingdoms pp_nokingdoms_dem pp_nokingdoms_open pp_nokingdoms_closed using table_A14_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_noislands pp_noislands_dem pp_noislands_open pp_noislands_closed using table_A15_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_controls pp_controls_dem pp_controls_open pp_controls_closed using table_A16_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nooutlier pp_nooutlier_dem pp_nooutlier_open pp_nooutlier_closed using table_A17_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_british pp_british_dem pp_british_open pp_british_closed using table_A24_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_nobrit pp_nobrit_dem pp_nobrit_open pp_nobrit_closed using table_A25_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_mus_cou pp_mus_cou_dem pp_mus_cou_open pp_mus_cou_closed using table_A26_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_area pp_area_dem pp_area_open pp_area_closed using table_A27_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_donut pp_donut_dem pp_donut_open pp_donut_closed using table_A28_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_close pp_close_dem pp_close_open pp_close_closed using table_A29_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_colonizer pp_colonizer_dem pp_colonizer_open pp_colonizer_closed using table_A30_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_dist_pcs pp_dist_pcs_dem pp_dist_pcs_open pp_dist_pcs_closed using table_A31_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_fe_pcs pp_fe_pcs_dem pp_fe_pcs_open pp_fe_pcs_closed using table_A32_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)	
		
esttab pp_waterways pp_waterways_dem pp_waterways_open pp_waterways_closed using table_A33_f.tex, replace se r2 label title(Panel F: Index of Incumbent Support and Performance) ///
		scalars("FE_border Border FEs" "FE_round AB Round FEs" "FE_country Country FEs" "Cluster Cluster" ///
		"ymean Mean of Outcome" "ysd SD of Outcome" "ymin Min of Outcome" "ymax Max of Outcome") ///
		star(* 0.10 ** 0.05 *** 0.01) ///
		mtitles("Catholic Mission within 50km" "Catholic Today" "Schooling Ordinal") ///
		drop(_cons)		

	
********************************************************************************
********************** Figure A5: Country-Level Variables **********************
********************************************************************************

use "$data/analysis_data.dta", clear	
cd "$output"
	
********** Panel A: political participation
	foreach var in voted_dum contact_loc attend_comm raised_issue{
		egen z_`var' = std(`var')
	}
	alpha z_voted_dum z_contact_loc z_attend_comm z_raised_issue, gen(index_participation3) std
	**
	local controls "age female"

		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_dem
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_open
		
		reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_closed
	
	** alterntive
	foreach tercile in gem_t rul_t fsi_t tax_t{
	
			reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==1, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_1
			
			reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==2, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_2
			
			reghdfe  index_participation3 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==3, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_3
	}
	
	
	coefplot 	(pp_main, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_main_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_main_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_main_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_gem_t_1, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_gem_t_2, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_gem_t_3, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_rul_t_1, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_rul_t_2, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_rul_t_3, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_fsi_t_1, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_fsi_t_2, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_fsi_t_3, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_tax_t_1, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_tax_t_2, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_tax_t_3, pstyle(p4) msymbol(s) offset(24.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female index_malaria Log_dist_capital  index_geo index_location index_NR) vertical ///
				yline(0, lpattern(dash)) xscale(range(4 25)) ///
				xlabel(5 "Baseline", angle(30)) xlabel(10 "Gemstones", add) ///
				xlabel(15 "Rule of Law", add) ///
				xlabel(20 "FSI", add)  xlabel(25 "Tax % GDP", add) ///
				graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Index of Political Participation) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Tercile 1") label(9 "Tercile 2") label(12 "Tercile 3"))
	graph export "fig_a5_a.png", replace width(1000)
	
********** Panel B:  political sophistication
	foreach var in radio_news discuss_politics employed_dum{
		egen z_`var' = std(`var')
	}
	alpha z_employed_dum z_radio_news z_discuss_politics, gen(index_sophistication1) std
	**
	local controls "age female"

		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_dem
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_open
		
		reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_closed
	
	** alterntive
	foreach tercile in gem_t rul_t fsi_t tax_t{
			
			reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==1, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_1
			
			reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==2, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_2
			
			reghdfe  index_sophistication1 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==3, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_3
	}
	
	
	coefplot 	(pp_main, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_main_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_main_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_main_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_gem_t_1, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_gem_t_2, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_gem_t_3, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_rul_t_1, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_rul_t_2, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_rul_t_3, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_fsi_t_1, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_fsi_t_2, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_fsi_t_3, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_tax_t_1, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_tax_t_2, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_tax_t_3, pstyle(p4) msymbol(s) offset(24.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female index_malaria Log_dist_capital  index_geo index_location index_NR) vertical ///
				yline(0, lpattern(dash)) xscale(range(4 30)) ///
				xlabel(5 "Baseline", angle(30)) xlabel(10 "Gemstones", add) ///
				xlabel(15 "Rule of Law", add) ///
				xlabel(20 "FSI", add)  xlabel(25 "Tax % GDP", add) ///
				graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Index of Political Sophistication) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Tercile 1") label(9 "Tercile 2") label(12 "Tercile 3"))
	graph export "fig_a5_b.png", replace width(1000)
	
	
********** Panel C:  support for dem inst
	
	alpha op_reject_oneparty op_reject_oneman op_pres_obey op_pres_disc, gen(support_inst2) std
	**
	local controls "age female"

		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_dem
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_open
		
		reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_closed
	
	** alterntive
	foreach tercile in gem_t rul_t fsi_t tax_t{
		
			reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==1, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_1
			
			reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==2, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_2
			
			reghdfe  support_inst2 Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==3, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_3
	}
	
	
	coefplot 	(pp_main, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_main_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_main_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_main_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_gem_t_1, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_gem_t_2, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_gem_t_3, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_rul_t_1, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_rul_t_2, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_rul_t_3, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_fsi_t_1, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_fsi_t_2, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_fsi_t_3, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_tax_t_1, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_tax_t_2, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_tax_t_3, pstyle(p4) msymbol(s) offset(24.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female index_malaria Log_dist_capital  index_geo index_location index_NR) vertical ///
				yline(0, lpattern(dash)) xscale(range(4 25)) ///
				xlabel(5 "Baseline", angle(30)) xlabel(10 "Gemstones", add) ///
				xlabel(15 "Rule of Law", add) ///
				xlabel(20 "FSI", add)  xlabel(25 "Tax % GDP", add) ///
				graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Index of Support for Democratic Institutions) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Tercile 1") label(9 "Tercile 2") label(12 "Tercile 3"))
	graph export "fig_a5_c.png", replace width(1000)
	
	
	
********** Panel D:  Satisfied with Democracy
	
	**
	local controls "age female"

		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_dem
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_open
		
		reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_closed
	
	** alterntive
	foreach tercile in gem_t rul_t fsi_t tax_t{
		
			reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==1, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_1
			
			reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==2, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_2
			
			reghdfe  sat_dem Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==3, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_3
	}
	
	
	coefplot 	(pp_main, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_main_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_main_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_main_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_gem_t_1, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_gem_t_2, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_gem_t_3, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_rul_t_1, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_rul_t_2, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_rul_t_3, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_fsi_t_1, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_fsi_t_2, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_fsi_t_3, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_tax_t_1, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_tax_t_2, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_tax_t_3, pstyle(p4) msymbol(s) offset(24.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female index_malaria Log_dist_capital  index_geo index_location index_NR) vertical ///
				yline(0, lpattern(dash)) xscale(range(4 25)) ///
				xlabel(5 "Baseline", angle(30)) xlabel(10 "Gemstones", add) ///
				xlabel(15 "Rule of Law", add) ///
				xlabel(20 "FSI", add)  xlabel(25 "Tax % GDP", add) ///
				graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Satisfied with Democracy) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Tercile 1") label(9 "Tercile 2") label(12 "Tercile 3"))
	graph export "fig_a5_d.png", replace width(1000)
	
	
********** Panel E:  Index of Incumbent Support and Performance
	
	foreach var in over_perf_inc close_inc_party close_opp_party{
		egen z_`var' = std(`var')
	}
	alpha z_close_opp_party z_close_inc_party, gen(index_inc) std
	alpha z_over_perf_inc index_inc, gen(index_perfinc) std
	**
	local controls "age female"

		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Democracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_dem
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Open_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_open
		
		reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & Close_anocracy==1, a(Border_Unique round) cluster(Border_Unique)
		est sto pp_main_closed

	
	** alterntive
	foreach tercile in gem_t rul_t fsi_t tax_t{
			
			reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==1, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_1
			
			reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==2, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_2
			
			reghdfe  index_perfinc Proximity_DioceseHead 1.T_Closer10#c.Dist_Border10 Dist_Border10 `controls' if Dist_Border<=10 & `tercile'==3, a(Border_Unique round) cluster(Border_Unique)
			est sto pp_`tercile'_3
	}
	
	
	coefplot 	(pp_main, pstyle(p1) msymbol(o) offset(3.4)) ///
				(pp_main_dem, pstyle(p2) msymbol(d) offset(3.8)) ///
				(pp_main_open, pstyle(p3) msymbol(t) offset(4.2)) ///
				(pp_main_closed, pstyle(p4) msymbol(s) offset(4.6)) ///
				(pp_gem_t_1, pstyle(p2) msymbol(d) offset(8.8)) ///
				(pp_gem_t_2, pstyle(p3) msymbol(t) offset(9.2)) ///
				(pp_gem_t_3, pstyle(p4) msymbol(s) offset(9.6)) ///
				(pp_rul_t_1, pstyle(p2) msymbol(d) offset(13.8)) ///
				(pp_rul_t_2, pstyle(p3) msymbol(t) offset(14.2)) ///
				(pp_rul_t_3, pstyle(p4) msymbol(s) offset(14.6)) ///
				(pp_fsi_t_1, pstyle(p2) msymbol(d) offset(18.8)) ///
				(pp_fsi_t_2, pstyle(p3) msymbol(t) offset(19.2)) ///
				(pp_fsi_t_3, pstyle(p4) msymbol(s) offset(19.6)) ///
				(pp_tax_t_1, pstyle(p2) msymbol(d) offset(23.8)) ///
				(pp_tax_t_2, pstyle(p3) msymbol(t) offset(24.2)) ///
				(pp_tax_t_3, pstyle(p4) msymbol(s) offset(24.6)), ///
				drop(_cons Dist_Border* 1.T_Closer* age female index_malaria Log_dist_capital  index_geo index_location index_NR) vertical ///
				yline(0, lpattern(dash)) xscale(range(4 25)) ///
				xlabel(5 "Baseline", angle(30)) xlabel(10 "Gemstones", add) ///
				xlabel(15 "Rule of Law", add) ///
				xlabel(20 "FSI", add)  xlabel(25 "Tax % GDP", add) ///
				graphregion(color(white)) bgcolor(white) levels(95 90) ///
				title(Index of Incumbent Support and Performance) ///
				legend(order(3 6 9 12) label(3 "Pooled") label(6 "Tercile 1") label(9 "Tercile 2") label(12 "Tercile 3"))
	graph export "fig_a5_e.png", replace width(1000)
